home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD78117152000.psc / Update-Program / Auto Update / DateConverter.bas < prev    next >
Encoding:
BASIC Source File  |  2000-02-05  |  2.0 KB  |  108 lines
  1. Attribute VB_Name = "Module1"
  2. Public Function ConvertDate(dateToConvert As Date)
  3. Dim NewDay As String
  4. Dim NewMonth As String
  5.  
  6. Select Case Day(dateToConvert)
  7.     Case 1
  8.         NewDay = "1st"
  9.     Case 2
  10.         NewDay = "2nd"
  11.     Case 3
  12.         NewDay = "3rd"
  13.     Case 4
  14.         NewDay = "4th"
  15.     Case 5
  16.         NewDay = "5th"
  17.     Case 6
  18.         NewDay = "6th"
  19.     Case 7
  20.         NewDay = "7th"
  21.     Case 8
  22.         NewDay = "8th"
  23.     Case 9
  24.         NewDay = "9th"
  25.     Case 10
  26.         NewDay = "10th"
  27.     Case 11
  28.         NewDay = "11th"
  29.     Case 12
  30.         NewDay = "12th"
  31.     Case 13
  32.         NewDay = "13th"
  33.     Case 14
  34.         NewDay = "14th"
  35.     Case 15
  36.         NewDay = "15th"
  37.     Case 16
  38.         NewDay = "16th"
  39.     Case 17
  40.         NewDay = "17th"
  41.     Case 18
  42.         NewDay = "18th"
  43.     Case 19
  44.         NewDay = "19th"
  45.     Case 20
  46.         NewDay = "20th"
  47.     Case 21
  48.         NewDay = "21st"
  49.     Case 22
  50.         NewDay = "22nd"
  51.     Case 23
  52.         NewDay = "23rd"
  53.     Case 24
  54.         NewDay = "24th"
  55.     Case 25
  56.         NewDay = "25th"
  57.     Case 26
  58.         NewDay = "26th"
  59.     Case 27
  60.         NewDay = "27th"
  61.     Case 28
  62.         NewDay = "28th"
  63.     Case 29
  64.         NewDay = "29th"
  65.     Case 30
  66.         NewDay = "30th"
  67.     Case 31
  68.         NewDay = "31st"
  69. End Select
  70.  
  71. Select Case Month(dateToConvert)
  72.     Case 1
  73.         NewMonth = "January"
  74.     Case 2
  75.         NewMonth = "Febuary"
  76.     Case 3
  77.         NewMonth = "March"
  78.     Case 4
  79.         NewMonth = "April"
  80.     Case 5
  81.         NewMonth = "May"
  82.     Case 6
  83.         NewMonth = "June"
  84.     Case 7
  85.         NewMonth = "July"
  86.     Case 8
  87.         NewMonth = "August"
  88.     Case 9
  89.         NewMonth = "September"
  90.     Case 10
  91.         NewMonth = "October"
  92.     Case 11
  93.         NewMonth = "November"
  94.     Case 12
  95.         NewMonth = "December"
  96. End Select
  97.  
  98. If Len(Year(dateToConvert)) = 2 Then
  99.     newyear = "20" & Str(Year(dateToConvert))
  100. Else
  101.     newyear = Str(Year(dateToConvert))
  102. End If
  103.  
  104. ConvertDate = NewMonth & " " & NewDay & ", " & newyear
  105.  
  106. End Function
  107.  
  108.